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AAA Bib 
slat AA 
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AAAAAAAAAAAAAAA 
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AKA ABA 
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RAR AAA 
AAA AAA 
bhh ABA 
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009000 B8BSBBBB 
00 68 BB 


LLELLLLLiL I] 
LLLLLLLLLL I] 


00 
00 BB 88 
00 00 8B BB 
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000000 BBBBBBBB 
000000 BBBBBBBB 
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Ztitle "OBJMISC = Analyze Miscellaneous Object Records’ 
module objmisc 
ident='v04-000') = begin 


' 
SRO RA REAR HERRERA REAR TERETE TETRA TE TEAR KA AAA Kee eee eet eee Ree 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
'w ALL RIGHTS RESERVED. 


'* THIS SOFTWARE 4 FURNISHED ance A LICENSE AND MAY BE USED AND gd a 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
.* vaanarchnie NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
® . 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
7 A ys NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
.* . 


‘* DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
'® SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR oe OF ITS 
NOT SUPPLIED BY DIGITAL 


aeenenenenenenenmnmeaeaeaeenneneanenennen 


LORE E REAR AE EEE ARETE RETA ERATE TEETER RARER Eee ee 


Facility: VAX/VMS Analyze Facility, Analyze Miscellaneous Object Records 
Abstract: This module is responsible for analyzing the following object 
record ‘ypees 
OM End-of-Module Records 
HDR Header Records 
LNK Link Option Records 


and also reserved record types 


Environment: 
Author: Paul C. Anagnostopoulos, Creation Date: 13 January 1981, my birthday! 
Modified By: 


v03-004 ROPO020 Robert Posniak 11-JUL-1984 
Ensure we don't point beyond header record after 
we print creation date/time. 


v03-003 MCNO158 Maria del C. Nas 22-Mar-1984 
Add size parameter to call to ANLSCHECK_ SYMBOL, since now 
it cen be up to 39 characters (maximum Size of shareable image 
name 


v03-002 JwT0122 Jim Teague 26-May-1983 
Remove requirement for a patch date/time field. Such 


Page 


OBJMISC 


—> —s —) 2 


1 
= Anaiyze Miscellaneous Object Records 18-sep-1983 3:4 


66 Font Bliss=32 V4.0-7 
14-Sep-1984 11:52:5 ANALYZ.SRCJOBJMISC .B3 


a field is meaningless, and the Linker ignores it. 


v03-001 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
Change the message prefix to ANLOBJ$_ to ensure that 
message symbols are unique across alT ANALYZEs. This 
is necessitated by the new merged message files. 
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;. & 0065 1 Xsbttl "Module Declarations’ 

; 6 OST B68 a PR ; ; 

; 668 0067 1 ! Libraries and Requires: 

; 8 0068 1! 

: 70 0069 1 

ee as 0070 1 Library Lib’; 

: 7 0071 1 require ‘objexereq' ; 

eS « 0507 #1 

; 62% 0508 1! 

3 75 0509 1 ! Table of Contents: 

3 76 0510 1! 

bt! FF 0511 1 

: 78 Beg 1 forward routine 

i 0515 1 anl$object_eom: novalue, 

; 0514 1 anl$object_hdr: novalue, 

3 81 0515 1 anl$object_hdr_mhd: novalue, 

; 82 0516 «1 anl$object_record_size: novalue, 
. = 0517 1 anl$object_hdr_text: novalue, 

; & 0518 1 anl$object_hdr_mtc: novalue, 

2 85 0519 +1 anl$object_lnk? novalue; 

3 86 0520 1 

3 Br 0521 1! 

3 88 0522 1 ! External References: 

3 89 0525 1! 

; 90 0524 «1 

F 91 0525 1 external routine 

: 92 0526 «(1 anl$check_flags, 

3 93 0527 1 anl$check_symbol, 

3 94 0528 «#1 anl$check_when, 

: 695 0529 1 anl$format_error, 

: %&% 0530 73 anl$format_flags, 

: 97 0531 +1 anl$format_hex, 

: 98 0$32 =«#«1 anl$format_line, 

: 99 0533 «1 anl$object_env_check, 

: 100 0534 #1 anl$object_psect_ check, 

3 101 0535 «#1 anl$object_psect_ref, 

: 102 0536 (1 anl$object_record_ Line, 

a. eS 0537 «#1 anl$object_tir_cléan, 

3 1046 0538 1 anl$report_Lline; 

: 105 0539 «1 

s 06 0540 1! ‘ 

: 107 0541 1 ! Own Variables: 

; 108 0542 1! : 
3; 109 0545 1! The following variable is used to remember the record size from 
> 110 0544 1 ! the module header. 

ac” as 0545 1 

e SE2 0546 1 own : Fines . : 
Pate 0547 1 mhd_record_size: long initial (obj$c_maxrecsiz); 
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OBJECT_EOM = Analyze EOM and EOMW Records -Sep- ANALYZ.SRCJOBJMISC.B32;1 
Rsbttl *ANLSOBJECT_EOM = Analyze EOM and EOMW Records 
i Functional Description: 


This routine analyzes end of module records, of which there are 
two flavors. 


1 
1SC_= Analyze Miscellaneous Object Records 18-se $1984 23:42:4 AX-11 Bliss-32 V4.0-742 Pp 
larsep-joae 41,45,59 a 
E 0 


Formal Parameters: 
record_number Number of this object record. 
the_record Address of descriptor of the record. 


Implicit Inputs: 
global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine anl$object_eom(record_number,the_record): novalue = begin 


bind 
record_dsc = .the_record: descriptor; 


own 
transfer_flags_def: vector[2,long] initial ( 


uplit byte (Zascic "EOMSV_WKTFR’) 


° 


local 
status: Long. 
scanp: ref block(,bytel, 
fit_ok: byte; 


builtin 
nullparameter; 


: If we are called with no arguments, it means that we reached the end of 
! an object file and were missing an end-of-module record. In this case, 
! we are to ‘‘force’’ and end-of-module. Skip all the record analysis stuff. 


if not nullparameter(1) then ( 


! First we print a major Line for the record. We won't indent this code 
! because it is so long. 


ANAS NINAIANWNIAPGPIPYNINPINYPINNINNINYNPINIPINYINININNINININIDY 2 A I Ot 


0600 

0601 scanp = .record_dsc(ptr]; 2 < ; : 

0602 anl$object_record_line((if .scanplobj$b_rectyp] eqlu obj$c_eom then anlobj$_objeomrec 
0603 else anlob)$_objeomwrec), 


-record_number,record_dsc); 
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0605 anl$report_line(0); 


H 1 
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scanp = ps + 4? 


060 
pone ! Now we make sure the severity is present and print it. 
0609 H fit_ok = true; 
0610 ; ; 
0611 3 ensure_field fit (eom$b_comcod,record_dsc); 
pols 4 if .fif_ok then t 
0613 5 anl$format_line(0,1, (selectoneu SE RCLSENS,, cenceds of set 
0614 5 eom$c_ success): bj$_objeomsevsuc; 
0615 5 eom$c_warning]: antobi$- objeomsevwrn; 
0616 5 eom$c_error]: anlob]$_objeomseverr; 
0617 5 eom$c_ abort]: anlob]$_objeomsevabt; 
0618 5 {4 to TO): anlob]$_objeomsevres; 
0619 5 Cotherwise]: anlobj$_objeomsevign; 
0620 4 tes 
0621 4 ; .scanpLeom$b_comcod]); 
0622 4 if .scanpLeom$b_comcod] er 4 and -ScanpLeom$b_ comcod] lequ 10 then 
0623 4 anl$format_error (anlobj$_objeombadsev); 
0624 3); 
0625 3 
bese ; ! Now we are done if that is the end of the record. 
gece ; if .record_dscClen] gtru 2 then ( 
0630 4 ! 1 guess we have a transfer address. first there is a psect number, 
0631 4 i which is either a byte or word depending on the record type. Be sure 
poss ? i to record the reference. 
0634 5 if .scanplobj$b_rectyp] eqlu obj$c_eom then ( 
0635 5 ensure_Tfield_ fit(eom$b_psindx,record_dsc); 
0636 6 f .fif_ok then: ( 
0637 6 “anl$format_lLine(0,1,anlobj$ Sods rag bt b> S, :aepeamamae psindx]); 
0638 6 anl$object_ _psect_ ref(.scanpleom$b _psindx] 
0639 6 scanp = scanpLeom$l_ tfradrd; 
0640 5 E 
0641 5 
0642 5 ) else ( 
0643 5 ‘ ; f 
0644 5 ensure_field fit (eomw$w_psindx,record_dsc); 
0645 6 if .fit_ok then 
0646 6 “anl$format_line(0,1,anlobj$_objpsect.. Scone sonata, psindx)); 
0647 6 anl$object_psect_ ref(. scanpLeomw$w_psindx] 
0648 6 scanp = scanplLeomw$l_ tfradrd; 
0649 5 ); 
0650 4 ds 
0651 4 ; ; ; 
Be2 2 ' Now we have the transfer offset itself. Print it. 
0654 4 ensure_field_ fit(0,0,32,0,record_dsc); 
0655 5 if .fif_ok then ( 
0656 5 ot Ling (0, i ,anlobj$ $9 bivelus, scons, -0,32,0)); 
0657 5§ if -scanpl0 0 J gtru ftftftf® th 
0658 3 nl $fo 032.0 “error(antobj$_objp0space); 
4 
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B06 ? ! Again, the record may end at this point. If so, we are done. 

vee 2 if .record_dsc(ptrj+.record_dscllen] gtru .scanp then ( 

0666 5 ! OK, so there must be the transfer flags byte. 

peed é ! Print it and check it. 

0669 5 anl$format [topet) ant en re.ge geet ops. scenet 0.0.8.0 .traneter flags ae? s 
0670 5§ anl$check_flags(.scanpl0,0,8,0),transfer_flags_def); 

ae: é increment (scanp); 

per? 2 ! We must ensure that there are no spurious bytes at the end. 
0675 5 if .record dsc(ptrj]+.record dscClen] gtru .scanp then 

0676 5 an($format_error(anTobj$_extrabytes); 

0677 4 by 

0678 ; ); 


~ 
ees 
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> 248 0680 2 ! The following code is necessary to check for module-wide errors and to 
: $08 bees ; ! clean up after the module. 

ee +) 0685 2 ! We have to check for various TIR errors and let it clean up. 

; $26 0684 : : 

; €2 0685 5 anl$object_tir_clean(); 

; 254 0686 § 

ee +h) 0687 ! We have to check to see that no psect reference errors occurred. 
; 256 0688 2 ! We also have to do the same for environments. 

; go 0689 2 f 

; 258 0690 2 anl$object_psect check(); 

3 oF 0691 § anl$object_env_check(); 

; 260 069 : ; : 

: 261 0693 2 ! Finally, we reset the maximum record size for the next module. 

; $06 0694 2 : : ; 

; 2 0695 2 mhd_record_size = obj$c_maxrecsiz; 

: 264 0696 2 

s 265 0697 2 return; 

: 266 0698 2 

: ef 0699 1 end; 


-TITLE OBJMISC OBJMISC = Analyze Miscellaneous Object 
Records 
.IDENT \Vv04-000\ 
.PSECT $PLIT$,NOWRT,NOEXE,2 
52 46 546 4B 57 SF 56 246 4D 4F 45 OB 00000 P.AAA: ASCII <11>\EOMSV_WKTFR\ : 
.PSECT SOWNS,NOEXE,2 
00000800 00000 MHD RECORD SIZE: tee 
00000000 00004 TRANSFER_FLAGS_DEF : 
00000000" 00008 “ADDRESS P.AAA ; 
.EXTRN ANLOBJ$_OK, ANLOBJ$_ANYTHING 
DATATYPE 


“EXTRN ANLOBJ$~ERRORNONE 
TEXTRN ANLOBJS$"ERRORS, ANLOBJS_EXEFIXA 
EXTRN ANLOBJS~EXEF IXAIMAGE 
“EXTRN ANLOBJSEXEF IXAL INE 
“EXTRN ANLOBJSEXEF IXCOUNT 
TEXTRN ANLOBJS~EXEF IXEXTRA 
TEXTRN ANLOBJ$ “EXEF IXF IXED 
TEXTRN ANLOBJSEXEF IXFLAGS 
“EXTRN ANLOBJS~EXEF IXG 
EXTRN ANLOBJ$~EXEF IXGIMAGE 
TEXTRN ANLOBJSEXEF IXGL INE 
TEXTRN ANLOBJSTEXEF IXLIST 
“EXTRN ANLOBJS"EXEF I XNAME 
TEXTRN ANLOBJSTEXEF I XNAMEO 
TEXTRN ANLOBJSEXEF IXP 
EXTRN ANLOBJS$~EXEF IXPSECT 


rt. 
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-EXTRN ANLOBJS_EXEFIXU 
+ EXTRN ANL NLOBJS~EXEF IXUPN NE 
eEXTRN ANLOBJS_EXEGST, ANLOBJ$_EXEHDR 
SEXTRN ANLOBJ$~EXEHDRACTIVE 
-EXTRN ANLOBJ$_EXEHDRBLKCOUNT 
-EXTRN ANLOBJ$_EXEHDRCHANCOUNT 
-EXTRN ANLOBJ$_EXEHDRCHANDEF 
-EXTRN ANLOBJS_EXEHDRDECECO 
-EXTRN ANLOBJ$_EXEHDRDMT 
-EXTRN ANLOBJS_EXEHDRDST 
-EXTRN ANLOBJS_EXEHDRF ILEID 
SEXTRN ANLOBJ$~EXEHDRE IXED 
«EXTRN ANLOBJS_EXEHDRFLAGS 
-EXTRN ANLOBJ$— EXEMDRGBL IDENT 
-EXTRN ANLOBJ$—EXEHDRGST 
«EXTRN ANLOBJS_EXEHDRIDENT 
-EXTRN ANLOBJS_EXEHDRIMAGE ID 
-EXTRN ANLOBJS_EXEHDRISD 
-EXTRN ANLOBJ$_EXEHDRISDBASE 
~EXTRN ANLOBJ$— EXEHDRISDCOUNT 
~EXTRN ANLOBJ$_ EXEHDRISDFLAGS 
EXTRN ANL OBJ$~EXEHDRI SDGBLNAM 
-EXTRN ANLOBJ$_EXEHDRISDNUM 
-EXTRN ANLOBJS$S_EXEHDRISDPF CDEF 
~EXTRN ANL OBJ EXEHDRISDPFCSIZ 
-EXTRN ANLOBJS_EXEHDRISDTYPE 
-EXTRN ANLOBJ$~EXEHDRI SDVBN 
EXTRN ANLOBJ$7E KEHDRL INK 1D 
.EXTRN ANLOBJ$_EXEHDRMATCH 
.EXTRN ANLOBJ$~EXEHDRNAME 
-EXTRN ANLOBJ$_EXEHDRNOPATCH 
-EXTRN ANLOBJ$_ fe eae s BE ye 
-EXTRN ANLOBJ$~EXEHDRP PAGEDEF 
-EXTRN ANLOBJ$"EXEH DRPAT 
-EXTRN ANLOBIS-EXEHDR DRPATCHDATE 
-EXTRN ANLOBJS$ oe IV 
~EXTRN ANLOBJ$_ EXEHDRROPATCH 
-EXTRN ANLOBJS~ _EXEHDRRWPATCH 
~EXTRN ANLOBJ$_EXEHDRSYMDBG 
-EXTRN ANLOBJS_EXEHDRSYSVER 
-EXTRN ANLOBJ$_ EXEHDRTEXTVBN 
-EXTRN ANLOBJ* ~©XEHDRTIME 
eEXTRN ANLOBJ,_EXEHDRTYPEEXE 
~EXTRN ANLOBJ$_EXEHDRTYPELIM 
-EXTRN ANLOBJS_EXEHDRUSERECO 
-EXTRN ANLOBJS_EXEHDRXFER 
.EXTRN ANLOBJ$~EXEHDRXFER 
-EXTRN ANLOBJ$~EXEHDRXFER 
~EXTRN ANLOBJ$~EXEHEAD ING 
-EXTRN ANLOBJ$_EXEPATCH 
-EXTRN ANLOBJS_FLAG, ANLOBJS_HEXDATA 
“EXTRN ANLOBJ$~HEXHEAD IN 
.EXTRN ANLOBJ$~HEXHEADING2 
-EXTRN AN, COJ9_ 1 NOMSESEC 
-EXTRN ANLOBJS_INTERACT 
-EXTRN ANLOBJ$~ MASK, ANLOBJ$_OBJCPRREC 
-EXTRN ANLOBJS~ “OBJDBGREC 
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ANLOBJ$ SB YEOMREC Ce OBJEOMF LAGS 


ANLOBJ$_ 
ANLOBJ$_ “pe EOneEvera 
ANLOBJ MSEVERR 


ANLOB EOMWRE C 
ANLOBJ$~ ractess 
ANLOBJ$_OBJGSDENV 
ANLOBJ$~ “BIESDENVE LAGS 


JG 
ANLOBJ$~OBJGSDEPM 
ANLOBJ$~OBJGSDEPMW 
ANLOBJ$~OBJGSDIDC 
ANLOBJ$~OBJGSDIDCENT 
ANLOBJ$~OBJGSDIDCFLAGS 
ANLOBJ$~OBJGSDIDCMATCH 
ANLOBJ$~0BJGSD1DCOBJ 
ANLOBJ$~OBJGSDIDCVALA 
ANLOBJ$~OBJGSDIDCVALB 
ANLOBJ$~OBJGSDLEPM 


J 
ANLOBJ$_OBJGSDPRO 
ANLOBJ$_OBJGSDPROW 
ANLOBJ$_OBJGSDPSC 
ANLOBJ$_ OBJGSDPSCAL IGN 


ANLOBJ$~OBJMTCWHEN 
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BJPROARGNUM 
JPSECT 

SRCREC 
TATHEADING1 
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ARGINDEX 
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“0 
“0 
“0 
“0 
“0 
“OBJST 
“OBST 
“OBUSY 
“OBJSYMF 
“OBJTI 
“OBJTI 
“OBJTI 
“0BJTB 
ANLOBJ$_08 
ANLOBJ$ 0B 


ooo 
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VERITY 
ANLOBJ$_TEXT, ANLOBJ$_TEXTHDR 
ANLOBJ$_ NOSUCHMOD 
ANLOBJ$_BADDATE 

ANLOBJ$_ Sree tet pea 


A 
ANLOBJ$_EXEBADPATCHLEN 
AN. O83 EXEBADOBJ 


ANLOBJ$“EXEBADTYPE 
ANLOBJ$~E XEBADXF ERO 
ANLOBJ$~EXEHDRI SDLONG 
ANLOBJ$~EXEHDRLONG 
ANLOBJ$~ “EXE 1 SDLENDZRO 
ANLOBJ$~EXE 1 SDLENGBL 
ANLOBJ$~EXE 1 SDLENPRIV 
ANLOBJ$~EXENOTNAT IVE 
ANLOBJ$~EXTRABYTES 
ANLOBJS—F IELDE 
ANLOBJ$~FLAGERROR 
ANLOBJ$~ “NOTOK, ANLOBJ$_OBJBADIDCMATCH 
ANLOBJ$~0B 
ANCOBJ$~OBJBADPOP 
ANLOBJ$~OBJBADPUSH 
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5B 000000006 
5A 00006 
59 00006 
58 000000006 
55 08 
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ANLOBJ$_0BJF ADBADAVC 
ANL OBJ $_0BJF ADBADRBC 
ANLOBJ$_OBJGSDBADAL IGN 
ANLOBJ$_ yh ass aaa: 
ANLOBJ$_0 RRES 
ANLOBJ$_ OBJMHDBADRECSIZ 


YMBOL 
ANLSCHECK-WHEN, ANLSFORMAT_ERROR 
ANL$F ORMAT_F LAG 

ANL $F ORMAT_ “heX. as LINE 


ANLSOBJECT-TIR_CLEAN 
ANLS$REPORT_LINE 


SCODES ,NOWRT ,2 


Ant SOBUECI- EOM, Save R2,R3,R4,R5,R6,R7,R8,- 


#ANLOBJS$ OBJPSECT, R11 
ANL$FORMAT_L R10 
ANLS$FORMAT— LA NOR. R9 
#ANLOBJS FIELDF IF, R8 
a RECORD, 


AP) 
* SCANP 


RECORD_NUMBER 
(SCANP), #3 
3$ 


( 

$ 

1$ 

(R5), R3 
R3), 

5 


R7 
#ANL OBJ$_OBJEOMREC 
#ANLOBJ$_OBJE OMWREC 


; 0572 
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(82-000 ANLSOBJECT_EOM = Analyze EOM and E Records 12-80-1908 #7593268 LANALYZ SRC 1OBIM1SC.832.1 
00006 CF 3 FB 00040 4s: CALLS #3, ANLSOBJECT_RECORD_LINE 
3 D4 20058 CLRL 0s = ¢ §P) . = 
0000G CF 1 FB 00054 CALLS #1, ANLSREPORT_LINE 
54 1 90 90059 MOVB #1, FIT_OK 
16 54 £9 005¢ BLBC FIT OK, ~5$ 
51 02 a E B00 MOVAB 2(R2), R1 
50 65 3C 00063 MOVZWL (RS), RO 
50 63 CO 00066 ADDL2 (R3), RO 
50 51 01 00069 CMPL = R1, RO 
07 18 0006¢ BLEQU 5$ 
58 DD O006E PUSHL R8 
69 9 FB poe CALLS #1 ANLSFORMAT_ERROR 
4 94 0007 CLRB 3s F:IT_OK 
69 54 £9 00075 5$: LBC FIT“OK, 12$ 
56 01 A2 9A 00078 MOVZBL 1(STANP), R6 
56 DD 0007C PUSHL R6 
08 12 0007E BNEQ 6$ 
000000006 8F DD 00080 PUSHL #ANLOBJ$_OBJEOMSEVSUC 
3F 11 00086 BRB 11$ 
01 56 91 00088 6$: CMPB—saR6, #1 
08 12 00088 BNEQ 7 
000000006 8F DD 0008D PUSHL #ANLOBJ$_OBJEOMSEVWRN 
32 11 00093 BRB 11$ 
02 56 91 00095 7$: CMPB—saR6, #2 
08 12 00098 BNEQ 
000000006 8F DD D009A PUSHL #ANLOBJ$_OBJEOMSEVERR 
25 11 OOOAO BRB 11$ 
03 56 91 OOOA2 8$: CMPBséR6, #3 
08 12 OO0AS BNEQ 9$ 
00000000G 8F DD O00A7 PUSHL #ANLOBJ$_OBJEOMSEVABT 
18 11 OOOAD BRB 11$ 
04 56 91 OOOAF 9S: CMPB ss aR6,, #4 
OD 1F 00082 BLSsu-:10$ 
OA 56 91 000B4 CMPB Ss «R6,, #10 
08 1A 00087 BGTRU 108 
000000006 8F DD 00089 PUSHL #ANLOBJ$_OBJEOMSEVRES 
06 11 OOOBF BRB 11$ 
000000006 8F DD 000C1 10$: PUSHL #ANLOBJ$_OBJEOMSEVIGN 
| 01 DD 000C7 11$: PUSHL #1 
7E 04 000C9 CLRL -(SP) 
| 6A 04 FB 000CB CALLS #4, ANLS$FORMAT_LINE 
04 56 91 OOOCE CMPBséR6, #4 
O& 1F 00001 BLSSU_ 12$ 
OA 56 91 000D3 CMPB—s- RG, - #10 
09 1A 00006 BGTRU 12 
000000006 8F DD 00008 PUSHL #ANLOBJ$_OBJEOMBADSEV 
69 01 FB OOODE CALLS #1 ANLSFORMAT_ERROR 
02 65 B81 OOOE1 128: CMPW (R5), #2 
03 1A 0004 BGTRU 13$ 
O0EB 31 OO0E6 BRW 21$ 
37 57 €E9 OO0E9 138: BLBC R7, 15$ 
16 54 «O2E9 SO0EC BLBC =» F:IT_OK, 14$ 
51 03 A2 SE OOOEF MOVAB 3(R2), R1 
50 65 3C O00F3 MOVZWL (RS), RO 
50 63 CO 000F6 ADDL (R3). RO 
50 51 D1 O00F9 CMPL R1, RO 
07 1B OO0FC BLEQU 14$ 
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vives ANLSOBJECT_EOM = Analyze EOM and EOMW Records 14-Sep-19 4 11:5 66 LANALYZ SRE OBJMISC.B32;1 ~~ (a3 
58 DD OOOF PUSHL 8 : 
69 01 FB 901 CALLS #1, ANLSFORMAT_ERROR : 
54 94 0010 LRB Ss FALT_OK : 
9 54 £9 00105 148: BLBC FIT“OK, 18% 3 0636 
E 02 A2 9A 00108 MOVZBL 2(STANP), =(SP) : 0637 
5B DD 0010C PUSHL R11 : 
01 DD 90106 PUSHL #1 : 
7E D4 0011 CLRL -(SP) : 
6A 04 FB OO112 CALLS #4, ANLSFORMAT_LINE ; 
7E 02 A2 9a 0011 MOV2BL 2(SCANP), =(SPY > 0638 
00006 CF 01 FB 00119 CALLS #1, ANLSOBJECT_PSECT_REF : 
52 93 CO OO11E ADDL2 #3, SCANP : 0639 
5 11 00121 BRB 17§ + 063 
72 54 £9 00123 15$: LBC FIT_OK, 20$ + 0644 
51 04 A2 9E O06 MOVAB 4(R2), R1 : 
50 65 3C OO12A MOVZWL (RS), RO : 
50 63 CO 90120 ADDL2 (R3), RO : 
50 51 D1 00130 CMPL R1, RO : 
07 1B 00133 BLEGU 16$ : 
58 DD 00135 PUSHL R8 : 
69 01 FB 00137 CALLS #1, ANLSFORMAT_ERROR : 
54 94 0013A CLRB = FIIT_OK : 
59 54 £9 0013C 168: LBC FIT"OK, 20% : 0645 
7E 02 A2 3C 0013F MOVZWL 2(STANP), =(SF) > 0646 
5B DD 00143 PUSHL R11 : 
01 DD 00145 PUSHL #1 : 
7E D4 00147 CLRL -(SP) : 
6A 04 FB 00149 CALLS #4, ANLSFORMAT_LINE : 
7E 02 A2 3C 0014C¢ MOVZWL 2(SCANP), =(SP + 0647 
00006 CF 01 FB 00150 CALLS #1, ANLSOBJECT_PSECT_REF : 
52 04 CO 00155 ADDL2 #4, SCANP : 0648 
3D 54 €9 00158 178: LBC FIT_OK, 20$ ‘ + 0654 
51 04 A2 9E 00158 MOVAB 4(R2), R1 : 
50 65 3C 0015F MOVZWL (RS), RO : 
50 63 CO 00162 ADDL2 (R3), RO : 
50 51 D1 00165 CMPL R1, RO : 
07 18 00168 BLEQU 18$ : 
58 DD 0016A PUSHL R8 : 
69 01 FB 0016C CALLS #1, ANLSFORMAT_ERROR : 
54 94 0016F CLRB ss FIIT_OK ; 
24 54 €9 00171 18$: BLBC FIT~OK, 208 : 0655 
62 DD 00174 PUSHL (SCANP) + 0656 
000000006 8F DD 00176 PUSHL #ANLOBJ$_OBJVALUE : 
01 DD 0017C¢ PUSHL #1 : 
7E 04 OO17E CLRL. = = (SP) ; 
6A 04 FB 00180 CALLS #4, ANLSFORMAT_LINE : 
SFFFFFFF © BF 62 D1 00183 CMPL (SCANP), #1073741823 > 0657 
09 1B 0018A BLEQU 19$ : 
000000006 8F DD 0018C PUSHL #ANLOBJ$_OBJPOSPACE : 0658 
69 01 FB 00136 CALLS #1, ANLSFORMAT_ERROR ; 
52 04 £0 00195 19$: ADDL2 #4. SCA > 0659 
50 65 3C 00198 208: mOV2we (R5), RO > 0664 
53 63 50 Ci 00198 ADDL3 RO, (R3), R3 ; 
52 53 D1 0019F CMPL R3. SCANP : 
30 1B 001A2 BLEQU 27 ; 
0000" CF 9F O01A4 PUSHAB TRANSFER_FLAGS_DEF > 0669 
7E 62. 9A 001A8 MOVZBL (SCANP),~=(SP) : 


el 
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000000006 8F DD O01AB PUSHL #ANLOBJ$_OBJEOMFLAGS 
1 DD O18] PUSHL #1 
00006 CF 4 FB 183 CALLS #4, ANLSFORMAT_FLAGS 
0000" CF 9F 0018 PUSHAB TRANSFER_FLAGS_DEF 
7E 62 9A 001BC MOVZBL (SCANP),~=(SP) 
00006 CF 0 FB OO1BF CALLS #2, ANLSCHECK_FLAGS 
D6 0014 INCL 
52 53 D1 0016 CMPL R3, SCANP 
09 1B 001C9 BLEGU «218 
000000006 8F DD 001CB PUSHL #ANLOBJ$_EXTRABYTES 
69 01 FB 00101 CALLS #1, ANLSFORMAT_ERROR 
00006 CF 99 FB 001D4 21%: CALLS #0, ANLSOBJECT-TIR_CLEAN 
0000G CF FB 00109 CALLS #0, ANLSOBJECT-PSECT CHECK 
0000G CF 00 FB 001D¢ CALLS #0, ANLSOBJECT-ENV_CRECK 
0000° CF 0800 8F 3¢ OOiES MOV ZL #2648, MHD_RECORD_SIZE 
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ANALYZ.SRCJOBIMISC.832;1 


Esbttl "ANLSOBJECT_HDR = Analyze Object Header Records’ 


! Functional Descript 
This routine 


! Formal Parameters: 
record_number 
the record 


' Implicit Inputs: 
global data 


! Implicit Outputs: 
global data 


' Returned Value: 
non 


' Side Effects: 


ion: 
is called to analyze header records from object files. 


The record number of this header record. 
The address of the descriptor of this record. 


global routine anl$object_hdr(record_number,the_record): novalue = begin 


bind 
record_dsc = 


local 
Status: lon 


.the_record: descriptor; 


scanp: ref BlockC,bytel, 


fit_ok: byte; 


! Decide what to do based on the header type. If there isn't one, forget it. 


scanp = .record_dsc(ptr); 


fitlok = tru 

ensure_field_ 

if not .fit_ok then 
return; 


fit(obj$b_subtyp,record_dsc); 


selectoneu .scanplobj$b_subtyp] of set 


Cobj$c_hdr_mhd): 


Cobj$c_hdr_mtc): 
C(mhd$c_maxhdrtyp+1 
to 100): 


anl$object_hdr_mhd(.record_number,record_dsc); 


anl$object_hdr_text(.record_number,record_dsc); 
anlSobject_hdr_mtc(.record_number ,record_dsc); 
(anl$format error tantobj$_obihérres..recoré_nunber,.scanplod|Se_subtyp)): 


anl$report_Tine(0); 
an $format_hex(1,record_dsc);); 
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ANLSOBJECT HDR = Analyze Object Header Records 12-80 8- 198 $3 $6 LANALYZ SRE OBSMY sé BSoe1 
0758 
0759 {101 to 255]: (anl$format_Line(0,0,anlob base ner ionrec . record number, 
0760 scanplobj$b_subtypJ,.record_dsc(Ten]); 
0761 anl$report_tine(O); 
8706 an\$format_hex(1,record_dsc);); 
076 tes; 
0764 
0765 return; 
0766 
0767 1 end; 
001¢ 00000 -ENTRY ANLSOBJECT_HDR, Save R2,R3,R4 
53 08 AC 00 00002 MOVL THE_RECORD, R53 
52 04 A3 DO 00006 MOVL 4(R3), SC 
54 01 90 O000A MOVB #1, FIT_OK 
1D 54 €9 00000 BLBC =O séFLT_OK,“1$ 
51 02 ag 9E 00010 MOVAB 2(R2), R1 
50 635 3C 00014 MOVZWL (R3), RO 
50 046 A3 CO 00017 ADDL2 4(R35, RO 
50 51 01 0001B CMPL soRT, RO 
OD 1B QOO1E BLEQU 1$ 
00000000G 8F DD 00020 PUSHL #ANLOBJS_FIELDFIT 
0000G CF 01 FB 00026 CALLS #1, ANLSFORMAT_ERROR 
54 94 00028 CLRB 3s FIL T_OK 
7E 54 €9 0002D 1$: LBC FIT OK, 8$ 
52 01 A2 9A 00030 MOVZBL 1(STANP), R2 
0B 12 sat NEQ 2$ 
53 0D 000356 PUSHL R3 
04 AC DD 00038 PUSHL RECORD NUMBER 
0000v CF 02 FB 00038 CALLS #2, ANCSOBJECT_HDR_MHD 
04 00040 RET 
04 52 91 00041 2$: CMPB R2, 4 
05 1B 00044 BLEQU 3$ 
06 52 91 00046 CMPB R2, #6 
98 12 0004 BNEQ 4 
53 DD 00048 3$: PUSHL 
04 AC DD 0004D PUSHL RECORD _NUMBER 
0000v CF 02 FB 00050 CALLS #2, ANCSOBJECT_HDR_TEXT 
04 00055 RET 
05 52 91 Be 828 4%: CMPB Re a5 
98 12 00059 BNEQ 5 
53 DD 3n028 PUSHL R3 
04 AC DD 0005D PUSHL RECORD NUMBER 
0000v CF 02 FB 00060 CALLS #2, ANCSOBJECT_HDR_MTC 
04 00065 RET 
07 52 91 00066 5$: CMPB R2, #7 
18 «#1F 49984 BLSSU 6 
64 soBF 52 91 00068 CMPB R2, #100 
1 1A BO Ooh BGTRU 6$ 
52 Dd 00071 PUSHL R2 
04 AC DD 00073 PUSHL  RECORD_NUMBER 
00000000G 8F DD Bn07e PUSHL #ANLOBJ$_OBJHDRRES 
0000G (CF 03 FB 0007C CALLS #3, ANLSFORMAT_ERROR 


0746 


0750 


0752 


0754 


0755 


OBJMISC 
v04-000 


3 Routine Size: 


175 bytes, 


65 
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00906 


00006 


Routine 


18 11 

8F 36 91 
: 4 i 
83 DD 

Ss AC DD 
000000006 of bp 

CF 96 FB 
: 7 
We 

01 DD 

CF 02 be 
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1:5 


48 AX-11 Bliss-32 V4.0-742 
75 ANALYZ.SRCJOBJMISC.832;1 
7$ 

R2, #101 

(R3), =(SP) 

R2 

RECORD_NUMBER 

GAN. OBIS _OBJHORIGNREC 

#6, ANL $F ORMAT_LINE 

“i. ANLSREPIRT_LINE 


#) 
#2, ANLSFORMAT_HEX 
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NLSOBJECT_HDR_MHD = Analyze Module Header Reco 14-Sep-1984 11:52:5 ANALYZ.SRCJOBJMISC.832;1 
768 | Zsbttl "ANLSOBJECT_HDRMHD = Analyze Module Header Record’ 

i i Functional Description: 

ad : This routine is called to analyze the module header record. 

77 i Formal Parameters: 

77 record_number The number of this record in the object file. 

ve the_record The address of the descriptor of the record. 


i Implicit Inputs: 
global data 


global data 
i Returned Value: 
non 


! 

' 

! 

! 

' 

i 

' 

' 

Implicit Outputs: 
i 

! 

‘ 

' 

: Side Effects: 
' 


global routine anlSobject_hdr_mhd(record_number,the_record): novalue = begin 


bind 
tae record_dsc = .the_record: descriptor; 
0796 Local 
0797 status: Long 
0798 scanp: ref block(,byteJ, 
0799 fit_ok: byte, 
0800 work_dsc: descriptor; 
080 
+94 ! We begin by printing a record Line for this module header. 
0805 anl$object_record Line(anlobj$_objmhdrec,.record_number ,record_dsc); 


anl$report_line(0); 
! Now we print the structure level and make sure it is valid. 


scanp = .record_dsc(ptr]; 
fitok = true; 
ensure_field tit(mhd$b_strivl,record_dsc); 
if .fit_ok then ( ; : 
anl$format_line(0,1,anlobj$_objmhdstrivl,.scanp[mhd$b_strivi]); 
if .scanplmhd$b_striviJ gcd ob)Sc strivl then : 
anl$format_error(anlobj$_objmhdbadstrivl,obj$c_strivl); 


Se333S 
0.00 Gd Cp Co: 


POPONOPORY ee 


; 
! Now we print the maximum record size and make sure it’s valid. We also 
! save it for future use. 


ensure field fit(mhd$w_recsiz,record dsc); 
if .fif_ok then ( ; : ’ 
anl$format_line(0,1,anlobj$_objmndrecsiz,.scanp[mhd$w_recsiz]); 
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if .scanp(mhd$w_recsiz] gtru ob ]Se maxrecsiz then | 
an\$format_error(anlobj sob jmndbadrecsiz,obj$c_maxrecsiz); 
mhd_record_size = .scanpl[mhd$w_récsiz); 


! Now we print the module name and make sure it's valid. 


ensure _ascic fit (mhd$b_naming,record_dsc,work_dsc); 
if .fiFLok then ( 
anl$format_line(0,1,anlobj$_objmhdname, .work_dscllen],.work_dsc(ptr]); 
anl$check_Symbol (work dsc, Shi $c_maxnaming); 
scanp = .work_dsc(ptr] + .work_dScllen); 


); 
! Now we print the module version and make sure it’s valid. 


ensure_ascic fit(0,0,8,0,record_dsc ,work_dsc); 
if .fif_ok then ( : 
anl\$format_line(0,1 anlop{$.ob mhdversion,.work _dscClen],.work_dsc(ptr]); 
if (,work_dscllend {ssu 1) or (work dscClen] gtru obj$c_symsiz) then 
anl$format_error(anlobj$_badsymlen,obj$c_symsiz); 
scanp = .work_dsc(ptr] + .work_dscllen]; 
! Now we print the creation date/time and make sure it's valid. 


ensure_field fit(0,0,17*8,0,record_dsc); 

if .fif_ok then ( 
build_descriptor(work_dsc,17,.scanp); 
anl$format_line(0,1,anlobj)$_objmhdcreate,work_dsc); 
anl$check_when(work_dsc); 

, scanp = .scanp + 17; 


! If we're at the end of the record, no problem, just return 


if .record_dsc(ptr] + .record_dscllen] gequ .scanp then 
return; 


If there is a last patch date/time field, print it and make sure 
it's valid. It can be blank, full of nulls or contain a date. 


ensure field fit(0,0,17*8,0,record_dsc); 
if .fif_ok then ( 
build _ descriptor (work _dsc V2 -gsconp): 
if not (ch$neq(17,.scanp,0,0.0)) then 
chScooy i} -2- 07 work dsc(ptr],° 
C 


;, if nothing but O's, fill with blanks 
ant $format_Line(0,1,an obj$_Sbjmhdpatch,work_dsc); 
if ch$neq(T7,.work_dscCptrj; 0,0," °) then 
anl$check when(work dsc); 
: scanp = .scanp + 17; 


! Finally, we ensure that there are no spurious bytes at the end. 


if .record_dsc(ptr]+.record dsc f ten) gtru .scanp then 


anT$format_error(anTobj$_extrabytes); 
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oooo PF 


; return; 
end; 


Wwr 


O7FC 00000 SENTRY ANLSOBJECT_HDR_MHD, Save R2,R3,R4,R5,R6,R7,°; 0791 
5A 90006 CF OF 9000 MOVAB ANLSFORMAT_LINE, R10 : 
9 000G CF 4 000 MOVAB ANLSFORMAT“ERROR, R : 
58 000000006 8F 00 0000 MOVL MANLOBJS_FTELDFIT, R8 : 
SE 08 C2 0001 SUBL2 #8, SP : 
54 08 AC DO 00016 MOVL § THE_RECORD, R4 + 079% 
54 DD GOOIA PUSHL R4 : 0805 
06 AC DD 0001C PUSHL RECORD_NUMBER : 
00000000G 8F DD O0001F PUSHL #ANLOBJ$_OBJMHDREC 3 
0000G CF 03 FB 00025 CALLS #3, ANLSOBJECT_RECORD_LINE : 
7E D4 O002A CLRL. 0 = $P) > 0806 
00006 CF 01 FB 000¢¢ CALLS #1, ANLS$REPORT_LINE : 
52 04 A& DO 00031 MOVL  4(R4), R2 + 0810 
56 52 DO 00035 MOVL R2, SCANP : 
53 01 90 00038 MOVE T_OK + 0811 
53 53 £9 00038 BLBC = FIL T_OK, ~3$ + 0812 
51 03 A6 YE OO003E MOVAB 3(R6), R1 : 
50 64 3C 00042 MOVZWL (R4), RO : 
50 §2 CO 00045 ADDL2 R2, RO : 
50 51 D1 00048 CMPL = R1, RO : 
07 18 00048 BLEQU 1$ F 
58 DD 0004D PUSHL R8 F 
69 01 FB OO04F CALLS #1 ANL $F ORMAT_ERROR $ 
53 94 00052 CLRBOFAT_. ; 
6A 53 £9 00054 1$ LBC ~=—-s« FLAT “OK, 5$ > 0813 
7E 02 A6 9A 00057 MOVZBL 2(STANP), -(SP) : 0814 
000000006 8F DD 00058 PUSHL #ANLOBJ$_OBJMHDSTRLVL ; 
01 DD 00061 PUSHL #1 : 
7E D4 00063 CLRL. = (SP) ; 
6A 04 FB 00065 CALLS #4, ANLSFORMAT_LINE : 
02 Ad 95 00068 TSTB © 2¢ SCANP) : 0815 
0B 13 00068 BEQL = 2$ ; 
7E D4 0006D CLRL = = (SP) : 0816 
000000006 8F DD 0006F PUSHL #ANLOBJ$_OBJMHDBADSTRLVL ; 
69 9¢ FB 00075 CALLS #2 ANLSFORMAT_ERROR é 
68 53 £9 00078 2$: BLBC = FIT_OK, 7$ : 0822 
51 05 Ad 9E 00078 MOVAB 5(R8), R1 ; 
50 64 3C O007F MOVZWL (R4), RO : 
50 52 C0 00082 ADDL2 R2, RO : 
50 51 D1 0008 CMPL RI. RO ; 
07 1B 00088 BLEQU 3$ ; 
58 DD 0008A PUSHL R8 ; 
69 01 FB 0008C CALLS #1, ANLSFORMAT_ERROR ; 
53 94 OO08F CLRB Ss FL T_Ok : 
72 53 59 00091 3$: LBC 3S sds FLL T“OK + 0823 
7E 03 Ab 3C 00094 MOVZWL 3(SCANP), =(SP) > 0824 
000000006 +8F dD 00098 PUSHL #ANLOBJ$.OBJMHDRECSIZ ; 
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Qi DD 000 PUSHL : 
E D4 OOOA CLRL -(SP) s 
6A 04 FB OOOA CALLS #4, ANLSFORMAT_LINE g 
0800 8F 03 Ab 81 O0A5 CmPW 3(SCANP) #2048 + 0825 
7E 0800 8F 3¢ QOOAD MOVZWL #2048, -(SP) + 0826 
000000006 8F dD 00082 PUSHL #ANLOBJ$_OBJMHDBADRECSIZ : 
69 02 FB 00088 CAL #2, ANLSFORMAT_ERROR : 
0000" CF 03 Ag 3¢ 000BB 4$ MOVZWL 3(SCANP), MHD_RECORD_SIZE + 0877 
6A 5 E9 000C1 5$ BLB FIT OK, 9$ + 0832 
51 06 Ab SE 00064 MOVAB 6(R6), R1 : 
50 64 3 b00¢8 MOVZWL (R4), RO : 
50 52 CO 000CB ADDL2. R2, RO ; 
50 51 D1 OO0CE CMPL RI, RO : 
07 1B 00001 BLEQU 6$ : 
58 DD 00003 PUSHL R8 ; 
69 01 FB 00005 CALLS #1, ANLSFORMAT_ERROR : 
53 94 00008 CLRB ss FI T_OK : 
75 53 £9 OOODA 68: LBC FIT"OK, 11$ : 
6E 05 A6 9A 000DD MOVZBL 5(STANP), WORK_DSC 3 
04 AE 06 A6 9E OO00E1 OVA 6(R6), WORK _DST+4 é 
69 53 é9 O00E6 7$: BLBC FIT_OK, 11$ ; 
50 6E 3C O00E9 MOVZWL WORR DSC, RO : 
50 08 (6 OODEC IVL2. #8, RO F 
| 51 01 A046 9E OOODEF OVAB 1(RO)CSCANP], R1 : 
| 50 64 3C OOOF4S MOVZWL (R4), RO é 
50 52 CO 000F7 ADDL2  R2, RO ; 
50 51 D1 OOOFA CMPL RI. RO ; 
07 1B 000FD BLEGU 8$ : 
58 DD OOOFF PUSHL R8 é 
69 01 FB 00101 CALLS #1, ANLSFORMAT_ERROR $ 
53 94 00104 CLRB ss FL T_OK : 
69 53 £9 00106 8S: BLBC FIT™OK, 12$ > 0833 
04 AE Be 00109 SHL WORRK_DSC+4 : 0834 
| 7E 04 AE C 0010C MOVZWL WORK DSC, -(SP) ; 
000000006 8F DD 00110 PUSHL #ANLOBJ$_OBJMHDNAME 3 
| 01 DD 00116 PUSHL #1 ; 
7E D4 00118 CLRL -(SP) 3 
6A 0S FB OOTIA CALLS a5 ANLSFORMAT_LINE 3 
27 DD 00110 PUSHL #39 : 0835 
04 AE 9F OO11F PUSHAB WORK_DSC : 
0000G CF 02 FB 00122 CALLS #2, ANLSCHECK_SYMBOL 3 
56 6— 3C¢ 127 MOVZWL WORK_DSC, SCANP ; 0836 
39 04 ag CO 0012A ADDL2 WORK DSC+4, SCANP Z 
7 © 9 0012 9%: BLBC. «FIT Ox, 15$ > 0841 
51 01 Ad 9E 00131 MOVAB 1(R8), R1 : 
50 64 3¢ 00135 MOVZWL (R4), RO : 
50 52 CO 00138 DDL2 R2, ; 
50 51 01 00138 CMPL R17. RO ; 
07 18 0013€ BLEQU 108 ; 
58 DD 00140 PUSHL RB ; 
69 01 FB Botte CALLS #1 ANL$FORMAT_ERROR : 
53 94 0014 CLRB 3s FL T_OK : 
73 53 £9 00147 10$: BLBC  FIT"OK, 16$ ; 
6E 66 9A OO14A MOVZBL (SCANPS, WORK DSC : 
04 AE 01 4g 9— 0014D MOVAB 1(R6), WORK _DSC+4 : 
68 53 £9 00152 118% BLBC =: FIT_OK, 168 ; 


08 JAI SC OBJMISC = Analyze Miscellaneous Object Records 


2 
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ANLSOBJECT_HDR_MHD = Analyze Module Header Reco 12-Sep-19 4 $7583 268 LANALYZ-SRe OBJMISC.832;1 a ( 
3¢ 001 MOVZWL WORK_DSC, RO ; 
30 88 6 a A rama a 
1 01 A046 SE 001 MOVAB 1(RO)CSCANP], R1 : 
0 4 3€ 0016 MOVZWL (R4), RO : 
0 : CO 0016 ADDL2 2, RO : 
0 D1 00166 CMPL R1. RO : 
7 18 00169 BLEQU les : 
8 0D 0168 PUSHL R : 
69 1 FB 1g CALLS #1, ANLSFORMAT_ERROR : 
; 94 001 CLRB If _oK : 
68 E9 0017¢ 12$: BLBC FIT"OK, 17$ + 084 
ot bo 0017 PUSHL  WORR_DSC+4 : 084 
7E 4 AE 3C 00178 MOVZWL WORK“DSC, =(SP) : 
000000006 8F ODD parr PUSHL #ANLOBJ$_OBJMHDVERSION : 
91 DD 00182 PUSHL #1 : 
é D4 00184 CLAL =(SP) : 
6A 0 FB 00186 CALLS “5, ANL $F ORMAT_i INE : 
6— B5 90189 TSTW  WORK_DSC + 0844 
05 13 001 BEQL $ : 
1F 6— 81 0018 CMPW  WORK_DSC, #31 : 
08 18 00190 BLEQU 14$ : 
1F DD 00192 138: PUSHL #31 : 0845 
000000006 8F DD 00194 PUSHL #ANLOBJ$_BADSYMLEN : 
69 02 FB 0019A CALLS #2, ANLSFORMAT_ERROR : 
56 6— 3C 0019D 148: MOVZWL WORK_DSC, SCANP ; 0846 
56 04 Ag CO 001A0 ADDL2 WORK~DSC+4, SCANP : 
39 53 £9 OO1A4 15$:  BLBC FIT Ox, 178 + 0851 
51 11 A6 SE 001A7 MOVAB 17(R6). R1 : 
50 64 3C OO1AB MOVZWL (R4), RO : 
50 52 CO OO1AE ADDL2 R2, RO : 
50 51 01 00181 CMPL 1, RO : 
07 1B 00184 BLEQU $ ; 
58 DD 00186 PUSHL R : 
69 01 FB 00188 CALLS #1, ANLS$FORMAT_ERROR : 
53 94 001BB CLRB OK : 
| 20 53 €9 001BD 168: BLBC FIT“OK, 17$ : 0852 
6E 11 DO 001C0 MOVL #177 WORK _DSC : 0853 
06 AE 56 DO 001C3 MOVL SCANP, WORK_DSC+4 : 
SE DD 001C7 PUSHL  $P > 0854 
000000006 8F DD 001C9 PUSHL #ANLOBJ$_OBJMHDCREATE : 
01 DD OO1CF PUSHL #1 : 
7E D4 00101 CLRL =(SP) 3 
6A 04 FB 00103 CALLS #4, ANLSFORMAT_LINE : 
5E DD 90106 PUSHL : 0855 
00006 CF 01 FB 00108 CALLS #1, ANLSCHECK_WHEN : 
56 11 ¢O 001DD ADDL2 #17, SCANP : 0856 
57 64 3C OO1E0 178: MOV2WL (R45, R7 : 0861 
57 32 CO 001E3 ADDL2 Re. R7 : 
56 57 D1 00166 CMPL 7. SCANP : 
6¢ 1E OO1E9 BGEQU 4 ; 
58 5 9 001EB LBC ay OK, 218 : 0867 
50 11 Ab SE OOTE MOVAB 17(R6). RO : 
57 50 D1 OO1F MPL = RO, RZ : 
07 18 OO1F BLEGU = 18$ F 
58 DD 001F7 PUSHL R8 ; 
69 01 FB 001F9 CALLS #1, ANLSFORMAT_ERROR : 
53 94 OO1FC CLRB sd FAL f_OK : 


-o 


OBJMISC 
vOu-000 
00 
04 AE 
00 


Routine Size: 
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00 


20 


48 53 £9 

6E 11 00 

04 AE 56 D0 

66 11° 2D 
00000000 9F 

OF 12 

11 00000000 9F 00 2c 
00000020 9F 

5E 0D 

000000006 8F ODD 

01 DD 

7E D4 

6A 04 FB 

04 E 11 2d 
00000000 = 9F 

07 13 

SE DD 

0000G CF 01 FB 

56 11 ¢O 

56 57 01 

09 18 

00000000G 8F DD 

9 01 ae 


600 bytes, 


Routine Base: 


SCODES + 029A 


“ua 


2 
“Se 
Se 


MNS & & EAA | | — OOOO 
NEMO OA BO OM "OO DVAM Evo oLlf—m 


19$: 


Nm 
~m 
wr 
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1T_OK 2t$ 
177 WORK 
CANP, WORK Ssce 
17, (SCANPT, $0, #0, a#*x00000000 
$ 
#0, a#*x00000000, #17, WORK_DSC+4, 
an*x x00000020 
a OBJMHDPATCH 
rt i PANLSFORMAT LINE 
#17, QWORK_DSC#4, #32, #0, a#*x00000000 
20$ 
SP 
#1 arg ae WHEN 
#17, SCAN 
R7, SCAN 
22$ 
#ANLOBJ$_EXTRABYTES 
“i, ANLSFORMAT ERROR 


P 23 
sn (6) 


0868 
0869 


0870 


0871 
0872 


0873 


0874 


0875 
0880 


0881 
0885 


; Routine Size: 
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g 75 tA 


ANLSOBJECT_RECORD_SIZE = Check Object Record Si 14-Sep-1984 11:5 NALYZ.SRCJOBJMISC.B32;1 
eee ! Rsbeel "ANLSOBJECT_RECORD_SIZE = Check Object Record Size’ 

0888 1 ! Functional Description: ; 

0889 1! This Little routine is called to check the size of an object record 
0890 1! opeinst the maximum size specified in the module header. We assume 
+94 : the maximum size has been retrieved by now. 

0895 1 ! Formal Parameters: ; ; 

Bao ! i Size of the object record to check. 

0896 1! Implicit Inputs: 

0897 1! global data 

0896 1! es 

0899 1 ! Implicit Outputs: 

0900 1! global data 

0901 1! 

0902 1 ! Returned Value: 

0903 1! none 

0904 1! 

0905 1 ! Side Effects: 

0906 1! 

0907 1 !-- 

0908 1 

0909 1 

344 $ global routine anl$object_record_size(size): novalue = begin 

0912 2 

34F 3 ! Just check the size and print an error message if too large. 

0915 2 if .size gtru .mhd_record_size then. ; : 

Bots § anl$format_error(anlobj$_objrectoobig,.mhd_record_size); 

0918 2 return; 

0919 2 

0920 1 end; 


0000 00000 «ENTRY ANLSOBJECT_RECORD_SIZE, Save nothing 
0000" CF 04 AC D1 00002 CMPL SIZE, MHD_RECORD_SIZE 
OF 1B 00008 BLEQU 1$ 
0000° CF DD OO00A PUSHL MHD_RECORD SIZE 
00000000G 8F DD OOO0E PUSHL #ANCOBU$_OBJRECTOOBIG 
0000G CF 02 FB 00014 CALLS #2, ANLSFORMAT_ERROR 
04 00019 1$: RET 


26 bytes, Routine Base: $CODE$ + O04F2 


roe 


0910 
0915 


0916 


0920 


we 
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Vv 00 ANLSOBJECT_HDR_TEXT = Analyze Text Header Recor 14-Sep-1984 11:52:5 ANALYZ.SRC JOBJMISC .B32;1 (8) 
; 493 0921 1 Zsbttl *ANLSOBJECT_HDR_TEXT = Analyze Text Header Records’ 
; 494 09 ¢ 1 lee 
; 495 09 1 ! Functional Description: 
> 4% 09246 1! This routine is called to analye the header records that just 
: 497 0925 1! contain text. 
; 498 09 § 1! 
; 499 09 1 ! Formal Parameters: 
/3 $00 0928 1! record_number Number of this object record. 
H 203 8 4 ' the_record Address of a descriptor of the record. 
3 208 0931 1! Implicit Inputs: 
13 504 09 ¢ 1! global data 
: 505 0935 1! ae 
(3 ©6506 0934 1 ! Implicit Outputs: 
1s 307 0935 1! global data 
i; 508 0936 1! 
i; 309 0937 1 ! Returned Value: 
': 510 0938 1} non 
1s 511 0939 1: 
ls 21g 0940 1! Side Effects: 
|s $1 0941 1} 
is 316 0942 1 !== 
iz 339 0943 1 
is 516 0944 1 
Fr aif See 3 global routine anl$object_hdr_text(record_number,the_record): novalue = begin 
is 919 0947 2 bind 
is 320 0948 2 record_dsc = .the_record: descriptor; 
is Sei 0949 2 
3 256 0950 2 own ces, 
2 oe 0951 2 record_msg: vector[7,long] initial ( 
(3 526 0952 2 ee 
1: 525 0953 2 anlobj$_objlnmrec, 
i; 526 0954 2 anlob]$_objsrcrec, 
le: Ser 0955 2 anlob}$_ob)jttlrec, 
(3 6528 0956 2 anlobj$_objcprrec, 
3 Sev 0957 2 "one . 
3 330 0958 2 anlobj$_objgtxrec); 
1; $51 0959 2 local 
ls Soe 0960 § scanp: ref block(,bytel, 
ls 3355 0961 work_dsc: descriptor; 
13; «534 0962 2 
is $35 0965 2 : ‘ : p 
'; 536 0964 2 ! First we print the main record Line for this text record. 
iz dae 0965 2 
is 328 0966 2 scanp = .record_dsc(ptr); : 
is 339 0967 2 anl$object_record_line(.record_msgl.scanplobj$b_subtyp]],.record_number,record_dsc); 
3 ee? bees § anl$report_line(0); 
3 342 0970 § ! Now we format the textual information into Lines, with as many characters 
ls rh bap § ! per Line as possible. SCANP will act as the text pointer. 
3 «545 097 anl$format_lLine(0,1,anlobj$_texthdr); 
; 546 974 scanp = “stane ¢ 2 
i; rts +4 2 while .scanp lssa (.record_dsc(ptrJ+.record_dscllen]) do ( 
3 549 0977 3 ! Build a descriptor for this Line of text. 


5 
6 


58 
Ss 


PAX MAMAN 


PUPP PVPS SUSI SISOS 
FERS SSSERFUN ZS 
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ANLSOBJECT_HDR_TEXT = Analyze Text Header Recor 14-Sep-1984 


$338 $6 poe. Bliss-32 V4.0-742 


ANAL YZ.SRCJOBJMISC.832;1 


37 build_descriptor(work_dsc,minu(.record_dsc(ptr]+.record_dscllenJ-.scanp,65),.scanp); 
. 1 ! Print the text. 
0988 an $format_Line(0,1,anlobj$_text,.work_dscllen],.work_dsc(ptr]); 
, : 
a38¢ ONS RE jap cs 
gab 


0990 return; 
0991 
0992 1 end: 


-PSECT 


00000000 O000C RECORD_MSG: 
- LONG 


000000006 000000006 000000006 000000006 00010 


00000000 00020 
000000006 00024 


000¢ 00000 
SE 08 C2 0000 
52 08 AC DO 0000 
53 04 AZ D0 00009 
52 DD 0000D 
04 AC 0D OO000F 
50 01 A3 9A 00012 
0000°CF40 DD 00016 
00006 CF 03 FB 0001B 
7E D4 00020 
00006 CF O1 FB 00022 
000000006 8F DD 000 
91 dd 90020 
& D4 O00 
00006 CF 03 FB 00031 
53 02 60 000% 
50 62 3¢ 00059 
50 04 Ag CO 0008¢ 
50 33 1 00040 
5 16 00043 
50 $3 C2 00045 
00000061 &F 50 BT 00048 
; 4 1B 00046 
50 41 F 9A 00051 
oe 0 00 00055 
06 AE Ct $3 D0 00058 


—_ 
wn 


Nm 
bad 


- LONG 
«LONG 


SOWNS ,NOEXE ,2 


0 
ANLOBJ$_OBJLNMREC, ANLOBJ$_OBJSRCREC, - 
ANLOBJ$_OBJTTLREC, ANLOBJ$_OBJCPRREC 


ANLOBJ$_OBJGTXREC 


SCODES ,NOWRT,2 
ANLSOBJECT_HDR_TEXT, Save R2.R3 


SP 
THE RECORD, R2 
ashe). SCANP 


RECORD_NUMBER 

1(SCANP), R 

RECORD_MSGCRO] 

#2, ANCSOBJECT RECORD_LINE 


#1, ANLSREPORT_LINE 
BANLOBJS_TEXTHOR 


-(SP) 
#3, ANLSFORMAT_LINE 
#2, SCANP 


#65, 
RO, WORK DSC 
SCANP, WORK_DSC+4 


Pete Ge Be Be 


~~ 


~s 


OBJMIS 
v04 


3; Routine Size: 
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123 bytes, 


7e be Ae 
000000006 01 


Routine Base: 


4 AE 


wo 
f-OO@foung 


wo 
om 
oOo-FOWw "OCT 


SCODES + 050C 


$-32 V4 0-742 
ANALYZ.SRCJOBJMISC.832;1 
PUSHL WORK_DSC+4 
MOVZWL WORK pst =(SP) 
PUSHL #ANLOBJ$_TEXi 
PUSHL #1 
CLRL SP) 
CALLS #5, ANLSFORMAT_LINE 
MOVZWL WORK DSC 
ADDL2 RO, SCANP 
BRB 
RET 


coonge 


BeBe Se Se Se Se Se Se Se Be 


0983 


0987 


0975 
0992 


& 
E 


Se 


So 
~~ 
“a 
® 


nO oO 
42 3 


ANNAN 
DONO VEWN—O 


SUSAR AV=S 


PEDV PV DV PUPP PV IVILVSUSI SISSON 
o 


SSoooooee 
SELESELSLES 


— —+ + —» —+ _+ _4 —* 4 —s 


Be Be Be Be Oe Be Oe Oe Be Oe Be Oe Be Oe Se Oe Be Oe Se Se Se Se Se Be Se Se Be Oe Oe Se Ge Se Be Be Se Se Se Se Oe Se Ge Se Se Be Oe Be Ss Oe Oe Oe Be Se Oe Be Oe Oe oe 


AAPCHPOAOCOAAOOD 
MR —OC OOO VFwr-oO 


ror 
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Esbeel "ANLSOBJECT_HDR_MTC = Analyze Maintenance Header Records’ 


! Functional Description: 
: This routine is called to analyze maintenance header records. 


oe 
Wirw 


oo 
LS 


i Formal Parameters: 
record. number The number of this record in the object file. 


$33 


it the_record The address of the descriptor of the record. 
00¢ i Implicit Inputs: 
global data 


33 


PRIA AIARSPPIPINDI HA MIAPIPININIPYPININPINPINPINPIPONIPINININININININDYDYD 2 = se 


global data 


Sos 


oc 
rete) 


i Returned Value: 
non 


S 


' 

‘ 

' 

' 

' 

' 

' 

' 

: Implicit Outputs: 
i 

' 

' 

' 

; Side Effects: 
' 


global routine anl$object_hdr_mtc(record_number,the_record): novalue = begin 


bind 
record_dsc = .the_record: descriptor; 


local 
status: tong 
scanp: ref block. bytel, 
fit.ok: byte, | 
work_dsc: descriptor; 


! We begin by printing a record Line for this maintenance record. 


ant $object_record line(anlobj$_objmtcrec,.record_number,record_dsc); 
anl$report_line(0); 


! Now we print the patch utility name. 


scanp = .record_dsc(ptr); 
fitok = true; 
ensure_ascic_tit(0,0,8,0,record_dsc,work_dsc); 
if .fiflok then ( ; : 
an $format_lLine(0,1,anlobj$_objmtcname, .work_dscClen],.work_dsc(ptrJ]); 
scanp = .work_dsc(ptr] + ,work_dscClenJ; 


SOOOCOCOCCOCOCOCOCOCOCOCOCOOOOCOCOCOOCOOCOOCOOOCOOO 
AAA IAIA AAAS PUMP PINPINININNONY OO ow 


ee a ed ae a a ed a a ee ed a ad a ad a aed ae a a a a a a ed ed ae cd ed ee ed ed ed ee ed ed ed ed ed 
OD NO WE WN OC OD NO UNE WIN 0 OD NOU EWN OO ODNOU FS WN OO 


04 

04 ); 

04 os ; 

Be ! Next we print the patch utility version, 

04 ensure_ascic fit(0,0,8,0,record_dsc,work_dsc); 

04 if .fifok then ( : d ’ 

04 anl$format_‘ine(0 1 aplabis obiatcyers jon. .verk_declion}, .uerh_daclptry); 
be ' scanp = .work_dsclptr]) - .work_dscllen]; 


. 
04 


2 


yh 


2@ 

a 

DAA AAIIIIIA 
rz 
Bu 


pejejlelelelelelelela) 
COONAUE WO 


WN “OC OONOUEw 


3 


AAAAAPAPAAAAAAMH 
GEA 

Soe 

whe 


aaa a ata aa at ak a a ak a a at et a a a a 
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-Sep-19 


! Now the UIC of the stupid patch person (WHY NOT JUST RECOMPILE?). 


ensure field, £1t(0.0,16.0.record_dsc); 
-fitlo en ‘ ‘ 

an $format_line(0,1,anlobj$_objmtcuic,.scanp(0,0,8,0],.scanp(1,0,8,0)); 
re scanp = .scanp + 2; 


! Now the input file specification. 


ensure _ascic fit(0,0,8,0,record_dsc,work_dsc); 

if .fifok then ( 
anl$format_line(0,1,anlobj$_objmtcinput,.work_dscClen],.work_dsc(ptrJ); 

, scanp = .work_dsclptr] + ,work_dscCllen]; 


! Now the correction file specification. 


ensure_ascic_ fit(0,0,8,0,record_dsc,work_dsc); 
if .fif_ok then ( 

anl$format_line(0,1,anlobj$_objmtccorrect,.work_dscllen],.work_dsc(ptrJ); 
' scanp = »work_dsclptr) + ,.work_dscllen]; 


! Now the date and time of patching. 


ensure_field fit(0,0,17*8,0,record_dsc); 

if .fif_ok then ( 
build_descriptor(work_dsc,17,.scanp); 
anl$format_line(0,1,anlobj$_objmtcwhen,work_dsc); 
anl$check_when(work_dsc); 

, scanp = .scanp + 17 

! Last, and hopefully least, the sequence number. 

ensure field fit(0,0,8.0.record_dsc); 

if .fifLok then ( : ; 
anl$format_line(0,1,anlobj$_objmtcseqnum,.scanp(0,0,8,0]); 

increment Tscanp); 

! Finally, we ensure that there are no spurious bytes at the end. 


if .record_ dsc(ptrj+.record dscClen] gtru .scanp then 
anT$format_error(anTobj$_extrabytes); 


return; 


end; 


01FC 00000 -ENTRY ANLSOBJECT_HDR_MTC, Save R2,R3,R4,R5,R6,R7,-; 1016 


ANALYZ.SRCJOBJMISC.832;1 
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yOu-000 ANLSOBJECT_HDR-MTC = Analyze usthnates Header 12-880- 1984 7:4 $5 YANALYZ.SRE OBUMISC.B832;1 


R8 
MOVAB ANLSFORMAT_LINE 


G CF 9 02 ai RB 
6 CF 9 99 MOVAB ANLSFORMAT“ERROR, R7 
6 00000000, &F 00 000 ‘ MOVL  #ANLOBJS_FTELDFIT, R6 
E 8 C2 0001 SUBL2 _# p 
4 08 AC DO 00016 MOVL § THE_RECORD, R4 
0% aC bb ooate PUSHE — RECORD_NUMBER 
000000006 8F odd O00TF PUSHL #ANLOBJ$_OBJMTCREC 
00006 CF 3 Fe 99 5 CALLS #3, ANLSOBJECT RECORD _LINE 
00006 CF 04 FB 90 ¢ CALLS #1, ANLSREPORT_LINE 
06 As 00 00 MOVL 4(R46), RS 
: 55 b0 0035 MOVL RS, SCANP 
Q1 0038 MOVeso#t FIT Ox 
78 3 9 00038 BLBC ~—_—«sFL f__OK,, 
51 01 A2 9E 0003 MOVAB 1(R2), R1 
50 64 3¢ 004 MOVZWi (R4), RO 
50 55 CO 0004 ADDL2 RS, RO 
50 51 01 00048 CMPL R1, RO 
07 18 00048 BLEQU 1$ 
56 0D 00040 PUSHL R6 
67 01 FB 0004F CALLS #1, ANLSFORMAT_ERROR 
53 94 00052 CLRB 3s FL T_OK 
6A 53 £9 00054 18: BLBC FIT"OK, 4$ 
6E 62 9a 00057 MOVZBL (SCANPS, WORK_DSC 
06 «AE 01 a 43 0005A Vv 1(R2), WORK_DSC+4 
7F 5 § 0005F BC FIT Ok, 5$ 
50 6— 3C 0006 MOVZWL WORR_DSC, RO 
50 08 C6 0006 DIVL2 #8, RO 
51 01 A042 9E 000 MOV 1(RO)CSCANPJ, R1 
50 64 3C 0006D MOVZWL (R4), RO 
50 55 CO 0007 ADDL2 RS, RO 
50 51 01 0007 CMPL R1, RO 
07 1B 00076 BLEQU 2$ 
56 DD 00078 PUSHL  R6 
67 01 FB OOO7A CALLS #1, ANLSFORMAT_ERROR 
53 94 0007D CLRBSs«FAL'T_OK 
7E 53 £9 OOO7F 28: BLBC FIT"OK, 6$ 
04 AE 14 sited PUSHL WORR_DSC+4 
7E 04 AE 3C 0008 MOVZ2WL WORK™DSC, -(SP) 
00000000G 8F DD p28? PUSHL #ANLOBJ$_OBJMTCNAME 
01 DD 0008F PUSHL #1 
43 D4 90091 CLRL -(SP) 
68 05 FB 00093 CALLS #5, ANLSFORMAT_LINE 
5 6E 3C 000% MOV2WL WORK_DSC, SCANP 
5 04 AF CO 00099 ADDL2 WORK™DSC+4, SCANP 
7 5 34 0090 BLBC FIT Ox, 7$ 
51 01 A2 YE OOOAD MOVAB 1(R2), R1 
50 64 3C OO0A4 MOVZWL (R4), RO 
50 55 (CO 000A7 ADDL2 RS, RO 
50 51 D1 OOOAA CMPL R1. RO 
Q7 1B OOOAD BLEQU 3$ 
6 DD OOOAF PUSHL 6 
67 o1 FB 000B1 CALLS #1, ANLSFORMAT_ERROR 
3 94 00084 CLRB Ss FL T_OK 
7A 53 £9 00086 3$: BLBC FITOK, 8 


4H 3 
Jn OBJMISC = Analyze Misceilaneous Object Records 15-Sep-1984 23:42:46 AX-11 Bliss<-32 v4.0-74 p 1 
rae ANLSOBJECT_HDR_MTC = Analyze Ee ctietes Header 1278087198 $7:35:35 LANALYZ SRE OB TMS esos — (3) 
ee 62 9A 00089 MOVZBL (SCANP), WORK DSC : 
06 «AE 01 Ae 9 a MOVAB 1(R2), WORK DSC 4 : 
F 5 5 Ci 4$ BL BC FIT Ok, 8$ : 
0 6 C 0004 MOVZWL WORR psc, RO : 
6 C7 DivL2 # RO : 
1 01 A042 9E OOOCA MOVAB -1(RO) SCANP, R1 : 
0 4 ¢ OOCF MOVZWL (R4), R : 
5 (0 0000 ADDL2 5, Ro : 
0 1 D1 0000 CMPL soRkT, R : 
g7 18 00008 BLEGU «5S : 
6 DD OOODA PUSHL R6 : 
67 1 FB 900¢ CALLS #1, ANLSFORMAT_ERROR : 
; 94 O00DF CLAB 3s FAL T_OK : 
73 E9 OO0E1 S$: BLBC ~=-_—»sFIIT“OK, 108 : 1046 
04 AE bp O0E4 PUSHL  WORR_DSC+4 > 1047 
7E 04 AE 3C O00E7 MOVZWL WORK“DSC, -(SP) : 
000000006 8F DD O00EB PUSHL #ANLOBJ$_OBJMTCVERSION : 
1 DD 000F1 PUSHL #1 : 
E D4 9008 3 CLRL. = = (SP) : 
68 0 FB OOOF CALLS #5, ANLSFORMAT_LINE $ 
52 6 3¢ 000F8 MOVZWL WORK DSC, SCA : 1048 
52 06 AE 52 C3 000FB SUBL3  SCANP, WORK_DSC+4, SCANP : 
74 53 £9 90109 6g BLBC ~=—E_-sFLIT_OK, 11$ : 1053 
51 02 A2 9E 0010 MOVAB 2(R2), ; 
50 4 3C 00107 MOVZWL  (R4), RO : 
50 5 (0 O010A ADDL2 5, RO ; 
50 51 D1 0010D CMPL = R17, RO : 
07 1B 00110 BLEQU 7$ : 
56 DD 00112 PUSHL R6 : 
67 01 FB 00114 CALLS #1, ANLSFORMAT_ERROR : 
53 94 00117 CLRBOF AT _ : 
79 53 €9 00119 7$: LBC ~3—-s»sFLAT“OK, 12% + 1054 
7E 01 Ag 9A 0011 MOVZBL 1(SCANP), -(SP) + 1055 
7E 62 9A 00120 MOVZBL (SCANP), =(SP) F 
000000006 8F DD 00123 PUSHL #ANLOBJ$_OBJMTCUIC ; 
01 OD 00129 PUSHL #1 : 
7E D4 00128 CLRL. = (SP) : 
48 05 FB 00120 CALLS #5, ANLSFORMAT_LINE : 
52 0¢ cO 001 ADDL2 : 1056 
78 53 £9 00133 8$: BLBC FIT_OK, 13 + 1061 
51 01 A2 SE 00136 MOVAB 1(R2), R1 : 
50 64 3C OO13A MOVZWL (R4), RO : 
50 55 C0 0013p ADDL2 RS, ; 
50 51 1 00149 CMPL 1, RO : 
07 18 0014 BLEQU 9S : 
56 DD 00145 PUSHL R6 : 
67 01 FB 00147 CALLS #1 ANL $F ORMAT_ERROR 3 
53 94 OO14A CLRB Ss FL T_OK ; 
6A 53 9 0014C 9$: BLBC = FIT“OK, 148 F 
aa 62 9A O014F MOVZBL (SCANPS, WORK _DSC : 
04 AE 01 =A 3 015¢ MOVAB 1(R2), WORK_DSC+4 F 
7F 5 é 0157 108:  BLBC FIT Ok, 15$ ; 
50 6— 3C 0015A MOVZ2WL WORR DSC, RO ; 
50 08 (6 0015p DIVL2 #8 RO : 
51 01 A042 9E 00160 OVAB 1 (RO)CSCANPI, R1 : 
50 64 3C 00165 MOVZWL (R4), RO : 
50 55 CO 00168 DDL2 RS, RO ; 
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Font Bliss-32 V4.0-742 
ANALYZ.SRCJOBJMISC.832;1 


R1, RO 
11§ 


R 
nt ANL SFORRAT ERROR 
FIT“OK, 16$ 
WORR_DSC+4 

RK pst. =(SP) 
#ANLOB, _OBJMTC INPUT 
=(SP) 
#5, ANLSFORMAT_LINE 
WORK_DSC, SCANP 


WORK"DSC44, SCANP 
IT OK, 178 


eee eS > be te) 


pat tatty tmp} Pe nN OW 


“ts 


ANL $F ORMAT_ERROR 


“"BD~-DD-—-B 
= 


: 


19$ 
R_DSc+4 
WORK"DSC, =(SP) 
SANLOBIS _OBJATCCORRECT 


-(SP) 
#5, ANLSFORMAT_LINE 
WORK_DSC, SCANP 
WORK~DSC44, SCANP 
FIT K, 208 

17(R2). RI 

(RA) RO 


NL$FORMAT_ERROR 


K, 20$ 
WORK _DSC 


rw 


3 
Jn OBJMISC = Analyze Miscellaneous Object Records 13-se “19 3:42:46 AX-11 Bliss-32 v4.0-74 
yOe-006 ANL$OBJECT_HDR-MTC = Analyze Maintenance Header 12-808=19be $7:95:85 LANALYZ-SRE OBsMISe BSoe1 


046 At : DO 00 16 VL  SCANP, WORK_DSC+4 
DD 0021 PUSHL 5P 
000000006 ' Dp 0 1 PUSHL #ANLOBJS _OBJMTCUHEN 
—E D4 4 CLRL. 0s = (SP) 
68 g4 FB $ CALLS #4, ANLSFORMAT_LINE 
—& oD PUSHL SP 
00006 cf 01 F CALLS #1, ANLSCHECK_WHEN 
2 11 ¢ ADDL2 #17, SCANP 
e6 53 f 0 18$:  BLBC FIT ‘OK, 208 
O18 FE bos vie taed. ‘Re 
38 g 26 0 ADDL2 RS, RO 
- 3y 98 0 “3 Strou 198 © 
14 DD 0024 PUSHL R6 
67 3 FB 00247 CALLS #1 ANL $F ORMAT_ERROR 
3 96 O026A CLRB Ss FAL T_OK 
12 53 9 00 4C 19$: BLBC  FIT~OK, 20$ 
7E 62 9A 0024F MOVZBL (SCANPS, -(SP) 
000000006 a Dp 00 58 PUSHL #ANLOBJS_OBJMTCSEQNUM 
7E D4 0025A CLRL. = (SP) 
68 04 FB 0025¢ CALLS #4, ANLSFORMAT_LINE 
52 06 0025F INCL SCANP 
50 64 3C 00261 208: MOVZWL (R4), RO 
50 55 CO 00264 ADDL2 _R 
: gS Susseehy Sem 
000000006 BF DD 0026C PUSHL #ANLOBJ$_EXTRABYTES 
67 01 FB baste CALLS #1, ANLSFORMAT_ERROR 
04 00275 218: RET 


(3 Routine Size: 630 bytes, Routine Base: S$CODES + 0587 
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= Analyze Miscellaneous Object Records Sass -19 3:42:64 AX-11 Bliss-32 V4.0-742 Pa 
ECT “UNK = Analyze LNK Recor j 1279 08- 1382 4:33:86 ANALYZ.SRC JOBJMISC.832;1 9 1d) 


peatet *ANLSOBJECT_LNK = Analyze LNK Record’ 


i Functional Description: 

This routine analyzes the LNK record, with Link option specifications. 
ea ey this is ignored by the Linker, so we wiil just dump it in 
hex for the guy. 


Formal Parameters: 
record_number The number of this object record. 
the_retord Address of descriptor of record. 


Implicit Inputs: 
we global data 


Implicit Outputs: 
global data 


Returned Value: 
none 


Side Effects: 


global routine anl$object_\ink(record_number,the_record): novalue = begin 
bind 

record_dsc = .the_record: descriptor; 
! First we print a major Line for the record. 


anl$object_record_ lLine(anlobj$_objlnkrec,.record_number,record_dsc); 
anl$report_line(0J; 


! Now we just dump the contents in hex. 
anl$format_hex(1,record_dsc); 
return; 


end; 


0000 00000 ENTRY ANL SOBJECT LNK Save nothing : 1127 
7E 4 AC 7D 00002 mova D NUMBER P) : 1135 
000000006 8F DD 00006 PUSHL  BANLOBIS fixe ; 
0000G CF 93 FB 0000C CALLS a3 oo5 084 _RECORD_L INE : 
E 04 00011 CLAL > 1136 
00006 CF 01 FB 0013 CALLS ANL SREPORT_L INE ; 
08 AC DD 0001 PUSHL THe RECORD : 1140 
01 DD 0001B PUSHL #1 ; 
00006 CF 02 FB 0001D CALLS #2, ANLSFORMAT_HEX : 
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51 


8 
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Jn OBJMISC = Analyze Miscellaneous Object Records 1$-se “19 ; 3:42:46 AX-11 Bliss-32 V4.0-74 
yOAe O00 ANLSOBJECT “LNK = Analyze LNK Record : $766 . 


14-Sep-1984 


04 00022 


; Routine Size: 35 bytes, Routine Base: SCODES + O7FD 


719 1145 «#1 
720 1146 0 end eludom 
PSECT SUMMARY 

Name Bytes Attributes 
SOWNS 40 NOVEC, WRT, RD ,NOEXE,NOSHR, 
SPLITS 12 NOVEC,NOWRT, RD ,NOEXE,NOSHR, 
SCODES 2080 NOVEC,NOWRT, RD, EXE,NOSHR, 

Library Statistics 
parame Syabels eocceooe 

File Total idaded Percent 

~$255$DUA28: (SYSL1IBIL18.L32;1 18619 37 0 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:OBJMISC/0BJ=O0BJ$:OBJMISC MSRC$:0BJMISC/UPDATE=(ENH$:OBJMISC) 


Size: 2080 code + 52 data bytes 
Run Time 00: 36.0 
Elapsed Haes 01:49.3 
Lines/CPU Min: 1912 
Lorene (Putte: 17522 
pee” Used: 290 pages 
Compilation Complete 


1:5 ANALYZ.SRC JOBJMISC.832;1 


RET 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
1000 00:01.9 


29° (195 


1144 
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